home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 2 / BBS in a box - Trilogy II.iso / Files / Hyper / U-Z / WindowScript™.Demo / WindowScript™ 1.0 Working Model / WindowScript™ 1.0 Working Model.rsrc / ljb_128_wsTools < prev    next >
Encoding:
Text File  |  1992-04-29  |  644 b   |  32 lines
  1. ItemType: WIND
  2. Rect: 240,188,308,317
  3. Style: Windoid
  4. HasTitleBar: FALSE
  5. HasCloseBox: TRUE
  6. HasZoomBox: FALSE
  7. HasGrowBox: FALSE
  8. MinSize: 60,50
  9. MaxSize: 865,597
  10. Visible: FALSE
  11. Name: wsTools
  12. Script: global ptVis¬if objValue = "CloseBox" then¬hide window wdName¬put false into ptVis¬return "NG"¬end if
  13.  
  14. ItemType: PICT
  15. Rect: 0,0,68,20
  16. Name: CursorTools
  17. Grid: 3,1
  18. Logic: Radio
  19. SelectionStyle: Frame
  20. Script: if objValue = 1¬then ChooseTool "PLAY"¬else ChooseTool "SELECT"
  21.  
  22. ItemType: PICT
  23. Rect: 0,21,68,25
  24. Name: ToolsDivider
  25.  
  26. ItemType: PICT
  27. Rect: 0,25,68,129
  28. Name: ItemTools
  29. Grid: 3,5
  30. Logic: Radio
  31. SelectionStyle: Frame
  32. Script: ChooseTool (objValue + 3)